﻿Public Class ErrorFormulario
    Private cUbicacionErrorReceta As String
    Private cErrorRecetaMotivo As String
    Private cTipoErrorRecetaNombre As String

    Public Sub New(ByVal pUbicacionErrorReceta, ByVal pErrorRecetaMotivo, ByVal pTipoErrorRecetaNombre)
        cUbicacionErrorReceta = pUbicacionErrorReceta
        cErrorRecetaMotivo = pErrorRecetaMotivo
        cTipoErrorRecetaNombre = pTipoErrorRecetaNombre
    End Sub

    Public Property UbicacionErrorReceta()
        Get
            Return cUbicacionErrorReceta
        End Get
        Set(ByVal value)
            cUbicacionErrorReceta = value
        End Set
    End Property

    Public Property ErrorRecetaMotivo()
        Get
            Return cErrorRecetaMotivo
        End Get
        Set(ByVal value)
            cErrorRecetaMotivo = value
        End Set
    End Property

    Public Property TipoErrorRecetaNombre()
        Get
            Return cTipoErrorRecetaNombre
        End Get
        Set(ByVal value)
            cTipoErrorRecetaNombre = value
        End Set
    End Property
End Class
